Program test50000compte;

Uses Types,Comptes;


Var
	tabcompte : TTabCompte;
	i:INTEGER;
	
Begin
	i:=1;
	tabcompte.nbcompte:=0;
	WHILE(i<=20000)DO
		Begin
			tabcompte.nbcompte:=i;
			tabcompte.compteclient[i].IdCompte:=i;
			//WRITELN(tabcompte.compteclient[i].IDCompte);
			tabcompte.compteclient[i].solde:=500;
			tabcompte.compteclient[i].Libelle:='Compte Epargne';
			tabcompte.compteclient[i].taux := '125';
			tabcompte.compteclient[i].limite := 200;
			i+=1;
		End;
	i:=1;
	if(i=2) then
		begin
			WHILE(i<=tabcompte.nbcompte)DO
				Begin
				WRITELN('---------------------------------------------------');
								WRITELN('IDcompte: ', tabcompte.compteclient[i].IDcompte);
								WRITELN('Libelle: ', tabcompte.compteclient[i].Libelle);
								WRITELN('Taux: ', tabcompte.compteclient[i].taux);
								WRITELN('Solde: ',tabcompte.compteclient[i].solde);
								WRITELN('Limite de retrait: ',tabcompte.compteclient[i].limite);
								WRITELN('---------------------------------------------------');
								WRITELN('');
						i+=1;
				END;
			end;
	i:=indiceCompte(5000,tabcompte);
	WRITELN('Le compte se trouve en positon: ',indiceCompte(20000,tabcompte));
	


end.
